--- title: "ConocoPhillips Rod Pump Failure Dashboard" output: flexdashboard::flex_dashboard: orientation: columns vertical_layout: fill ---
ggplotly(empty_list[[1]]) %>% layout(legend = list(orientation = "h", x = 0.2, y = -0.2))
ggplotly(empty_list[[3]]) %>% layout(legend = list(orientation = "h", x = 0.2, y = -0.2))
ggplotly(empty_list[[13]]) %>% layout(legend = list(orientation = "h", x = 0.2, y = -0.2))
ggplotly(ggplot(data2, aes(logit, fill=outcome))+geom_density(alpha=.3,) +
geom_vline(xintercept=0,lty=2))
ggplotly(ggpairs(pamclust5,columns=1:2 ,aes(color=as.factor(rodPumpScale$Failure_Type))))
ggplotly(ggpairs(pamclust5,columns=1:3 ,aes(color=as.factor(rodPumpScale$Failure_Type))))
ggplotly(ggpairs(pamclust5,columns=1:4 ,aes(color=as.factor(rodPumpScale$Failure_Type))))
ggplotly(ggpairs(pamclust5,columns=1:5 ,aes(color=as.factor(rodPumpScale$Failure_Type))))